home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 029 (1987-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 029 (1987-08-15)(Ossowski, Stefan)(DE)(PD).adf / Utilities / FirstSiliCon / s / ls next >
Text File  |  1978-08-10  |  358b  |  19 lines
  1. .K PAT,DIR,-l/S
  2.  
  3. ;A primitive -- and very partial -- emulation of the *n*x 'ls' command.
  4. ;Works on the current directory; for others you need the keyword 'DIR'.
  5.  
  6. if "<-l>" EQ ""
  7.  if "<PAT>" EQ ""
  8.   list dir <DIR$""> QUICK
  9.  else
  10.   list dir <DIR$""> p <PAT> QUICK
  11.  endif
  12. else
  13.  if "<PAT>" EQ ""
  14.   list dir <DIR$"">
  15. else
  16.   list dir <DIR$""> p <PAT>
  17.  endif
  18. endif
  19.